unit Auth;

interface
  uses Dialogs;

implementation

 procedure test();
begin
   ShowMessage('p');
end;

end.
 